PC World Interactive 7/PC World Interactive 7.iso/share/hobi/solarsys/Solar.exe/0/RCDATA/TFRMBODY/TFRMBODY.txt

Text File | 1997-11-30 | 14.7 KB | 686 lines

object frmBody: TfrmBody
  Left = 315
  Top = 203
  ActiveControl = comboName
  BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
  BorderStyle = bsDialog
  Caption = 'Body Properties'
  ClientHeight = 345
  ClientWidth = 377
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object lblBody: TLabel
    Left = 13
    Top = 12
    Width = 56
    Height = 16
    AutoSize = False
    Caption = '&Body:'
    FocusControl = comboName
  end
  object shapeColor: TShape
    Left = 296
    Top = 272
    Width = 73
    Height = 25
    Brush.Color = clYellow
  end
  object comboName: TComboBox
    Left = 72
    Top = 8
    Width = 209
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    Sorted = True
    TabOrder = 0
    OnChange = comboNameChange
    OnClick = comboNameClick
  end
  object pageBody: TPageControl
    Left = 8
    Top = 48
    Width = 361
    Height = 217
    ActivePage = GeneralTab
    MultiLine = True
    TabOrder = 1
    object GeneralTab: TTabSheet
      Caption = 'General'
      object lblMass: TLabel
        Left = 107
        Top = 75
        Width = 56
        Height = 16
        AutoSize = False
        Caption = '&Mass:'
        FocusControl = editMass
      end
      object lblRadius: TLabel
        Left = 107
        Top = 115
        Width = 56
        Height = 16
        AutoSize = False
        Caption = 'Ra&dius:'
        FocusControl = editRadius
      end
      object imgBody: TImage
        Left = 9
        Top = 18
        Width = 79
        Height = 79
        Stretch = True
      end
      object Label1: TLabel
        Left = 107
        Top = 25
        Width = 56
        Height = 16
        AutoSize = False
        Caption = '&Name:'
        FocusControl = EditName
      end
      object lblMassUnit: TLabel
        Left = 296
        Top = 75
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object lblRadiusUnit: TLabel
        Left = 296
        Top = 115
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object editMass: TEdit
        Left = 163
        Top = 71
        Width = 126
        Height = 24
        TabOrder = 0
        OnChange = PropChange
      end
      object editRadius: TEdit
        Left = 162
        Top = 111
        Width = 127
        Height = 24
        TabOrder = 1
        OnChange = PropChange
      end
      object butBrowse: TButton
        Left = 8
        Top = 110
        Width = 81
        Height = 27
        Caption = '&Bro&wse...'
        TabOrder = 2
        OnClick = butBrowseClick
      end
      object EditName: TEdit
        Left = 163
        Top = 21
        Width = 180
        Height = 24
        TabOrder = 3
        OnChange = PropChange
      end
    end
    object PositionTab: TTabSheet
      Caption = 'Position'
      object lblxpos: TLabel
        Left = 13
        Top = 34
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&X Position:'
        FocusControl = editXPosition
      end
      object lblypos: TLabel
        Left = 13
        Top = 74
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&Y Position:'
        FocusControl = editYPosition
      end
      object lblzpos: TLabel
        Left = 13
        Top = 114
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&Z Position:'
        FocusControl = editZPosition
      end
      object lblXPositionUnit: TLabel
        Left = 288
        Top = 34
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object lblYPositionUnit: TLabel
        Left = 288
        Top = 74
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object lblZPositionUnit: TLabel
        Left = 288
        Top = 114
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object editXPosition: TEdit
        Left = 84
        Top = 30
        Width = 197
        Height = 24
        TabOrder = 0
        OnChange = PropChange
      end
      object editYPosition: TEdit
        Left = 84
        Top = 70
        Width = 197
        Height = 24
        TabOrder = 1
        OnChange = PropChange
      end
      object editZPosition: TEdit
        Left = 84
        Top = 110
        Width = 197
        Height = 24
        TabOrder = 2
        OnChange = PropChange
      end
    end
    object VelocityTab: TTabSheet
      Caption = 'Velocity'
      object lblxvel: TLabel
        Left = 13
        Top = 34
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&X Velocity:'
        FocusControl = editXVelocity
      end
      object lblYvel: TLabel
        Left = 13
        Top = 74
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&Y Velocity:'
        FocusControl = editXVelocity
      end
      object lblzvel: TLabel
        Left = 13
        Top = 114
        Width = 68
        Height = 16
        AutoSize = False
        Caption = '&Z Velocity:'
        FocusControl = editXVelocity
      end
      object lblXVelocityUnit: TLabel
        Left = 288
        Top = 34
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object lblYVelocityUnit: TLabel
        Left = 288
        Top = 74
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object lblZVelocityUnit: TLabel
        Left = 288
        Top = 114
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'unt/unt'
      end
      object editXVelocity: TEdit
        Left = 84
        Top = 30
        Width = 197
        Height = 24
        TabOrder = 0
        OnChange = PropChange
      end
      object editYVelocity: TEdit
        Left = 84
        Top = 70
        Width = 197
        Height = 24
        TabOrder = 1
        OnChange = PropChange
      end
      object editZVelocity: TEdit
        Left = 84
        Top = 110
        Width = 197
        Height = 24
        TabOrder = 2
        OnChange = PropChange
      end
    end
    object AppearTab: TTabSheet
      Caption = 'Object Appear'
      object labelAppearYear: TLabel
        Left = 16
        Top = 96
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Year:'
        Enabled = False
      end
      object labelAppearMonth: TLabel
        Left = 120
        Top = 96
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Month:'
        Enabled = False
      end
      object labelAppearDay: TLabel
        Left = 240
        Top = 96
        Width = 33
        Height = 16
        AutoSize = False
        Caption = 'Day:'
        Enabled = False
      end
      object labelAppearHour: TLabel
        Left = 16
        Top = 128
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Hour:'
        Enabled = False
      end
      object labelAppearMinute: TLabel
        Left = 120
        Top = 128
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Minute:'
        Enabled = False
      end
      object labelAppearSecond: TLabel
        Left = 224
        Top = 128
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'Second:'
        Enabled = False
      end
      object radioAppearSpecify: TRadioButton
        Left = 16
        Top = 40
        Width = 289
        Height = 17
        Caption = 'Let me specify when the object appears.'
        TabOrder = 0
        OnClick = AppearOptionClick
      end
      object radioAppearBegin: TRadioButton
        Left = 16
        Top = 16
        Width = 297
        Height = 17
        Caption = 'Obj&ect appears at the beginning.'
        Checked = True
        TabOrder = 1
        TabStop = True
        OnClick = AppearOptionClick
      end
      object spinAppearMonth: TSpinEdit
        Left = 168
        Top = 96
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 12
        MinValue = 1
        TabOrder = 2
        Value = 10
        OnChange = spinAppearMonthChange
      end
      object spinAppearDay: TSpinEdit
        Left = 280
        Top = 96
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 31
        MinValue = 1
        TabOrder = 3
        Value = 20
        OnChange = PropChange
      end
      object spinAppearHour: TSpinEdit
        Left = 56
        Top = 128
        Width = 57
        Height = 26
        Enabled = False
        MaxValue = 24
        MinValue = 1
        TabOrder = 4
        Value = 20
        OnChange = PropChange
      end
      object spinAppearMinute: TSpinEdit
        Left = 168
        Top = 129
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 59
        MinValue = 0
        TabOrder = 5
        Value = 25
        OnChange = PropChange
      end
      object spinAppearSecond: TSpinEdit
        Left = 280
        Top = 128
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 59
        MinValue = 0
        TabOrder = 6
        Value = 20
        OnChange = PropChange
      end
      object spinAppearYear: TSpinEdit
        Left = 56
        Top = 96
        Width = 57
        Height = 26
        Enabled = False
        MaxValue = 9999
        MinValue = 1
        TabOrder = 7
        Value = 1996
        OnChange = spinAppearYearChange
      end
      object butAppearNow: TButton
        Left = 256
        Top = 64
        Width = 75
        Height = 25
        Caption = '&Now'
        Enabled = False
        TabOrder = 8
        OnClick = butAppearNowClick
      end
    end
    object DisappearTab: TTabSheet
      Caption = 'Object Disappear'
      object labelDisappearYear: TLabel
        Left = 16
        Top = 96
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Year:'
        Enabled = False
      end
      object labelDisappearHour: TLabel
        Left = 16
        Top = 128
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Hour:'
        Enabled = False
      end
      object labelDisappearMonth: TLabel
        Left = 120
        Top = 96
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Month:'
        Enabled = False
      end
      object labelDisappearMinute: TLabel
        Left = 120
        Top = 128
        Width = 41
        Height = 16
        AutoSize = False
        Caption = 'Minute:'
        Enabled = False
      end
      object labelDisappearDay: TLabel
        Left = 240
        Top = 96
        Width = 33
        Height = 16
        AutoSize = False
        Caption = 'Day:'
        Enabled = False
      end
      object labelDisappearSecond: TLabel
        Left = 224
        Top = 128
        Width = 57
        Height = 16
        AutoSize = False
        Caption = 'Second:'
        Enabled = False
      end
      object radioDisappearNo: TRadioButton
        Left = 16
        Top = 16
        Width = 249
        Height = 17
        Caption = 'Obj&ect does not disappear.'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = DisappearOptionClick
      end
      object radioDisappearSpecify: TRadioButton
        Left = 16
        Top = 40
        Width = 297
        Height = 17
        Caption = 'Let me specify when the object disappears.'
        TabOrder = 1
        OnClick = DisappearOptionClick
      end
      object spinDisappearYear: TSpinEdit
        Left = 56
        Top = 96
        Width = 57
        Height = 26
        Enabled = False
        MaxValue = 9999
        MinValue = 1
        TabOrder = 2
        Value = 1996
        OnChange = spinDisappearYearChange
      end
      object spinDisappearHour: TSpinEdit
        Left = 56
        Top = 128
        Width = 57
        Height = 26
        Enabled = False
        MaxValue = 24
        MinValue = 1
        TabOrder = 3
        Value = 20
        OnChange = PropChange
      end
      object spinDisappearMonth: TSpinEdit
        Left = 168
        Top = 96
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 12
        MinValue = 1
        TabOrder = 4
        Value = 10
        OnChange = spinDisappearMonthChange
      end
      object spinDisappearMinute: TSpinEdit
        Left = 168
        Top = 128
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 59
        MinValue = 0
        TabOrder = 5
        Value = 25
        OnChange = PropChange
      end
      object spinDisappearDay: TSpinEdit
        Left = 280
        Top = 96
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 31
        MinValue = 1
        TabOrder = 6
        Value = 20
        OnChange = PropChange
      end
      object spinDisappearSecond: TSpinEdit
        Left = 280
        Top = 128
        Width = 49
        Height = 26
        Enabled = False
        MaxValue = 59
        MinValue = 0
        TabOrder = 7
        Value = 20
        OnChange = PropChange
      end
      object butDisappearNow: TButton
        Left = 256
        Top = 64
        Width = 75
        Height = 25
        Caption = '&Now'
        Enabled = False
        TabOrder = 8
        OnClick = butDisappearNowClick
      end
    end
  end
  object butApply: TButton
    Left = 264
    Top = 309
    Width = 100
    Height = 28
    Cancel = True
    Caption = '&Apply'
    Enabled = False
    TabOrder = 2
    OnClick = ButtonClick
  end
  object butCancel: TButton
    Left = 152
    Top = 309
    Width = 102
    Height = 28
    Cancel = True
    Caption = '&Cancel'
    TabOrder = 3
    OnClick = ButtonClick
  end
  object butOK: TButton
    Left = 41
    Top = 309
    Width = 104
    Height = 28
    Caption = '&OK'
    Default = True
    TabOrder = 4
    OnClick = ButtonClick
  end
  object checkboxTail: TCheckBox
    Left = 96
    Top = 272
    Width = 105
    Height = 25
    Caption = '&Display Tail:'
    TabOrder = 5
    OnClick = checkboxTailClick
  end
  object butColor: TButton
    Left = 216
    Top = 272
    Width = 75
    Height = 25
    Caption = '&Color...'
    TabOrder = 6
    OnClick = butColorClick
  end
  object butRemove: TButton
    Left = 294
    Top = 8
    Width = 75
    Height = 25
    Caption = '&Remove'
    TabOrder = 7
    OnClick = ButtonClick
  end
  object sysColor: TColorDialog
    Ctl3D = True
    Top = 272
  end
  object sysOpen: TOpenDialog
    DefaultExt = 'bmp'
    FileEditStyle = fsEdit
    Filter = 'Picture Files (*.bmp, *.dib)|*.bmp;*.dib|All Files (*.*)|*.*'
    Title = 'Body Picture - Open'
    Top = 301
  end
end